home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Interactive CD Sampler / Microsoft Interactive CD Sampler.iso / DEMOS / BOOKS / BKSHELF.DIR / 00040_sound2wait --.ls < prev    next >
Encoding:
Text File  |  1996-07-19  |  174 b   |  14 lines
  1. global paused
  2.  
  3. on exitFrame
  4.   if paused then
  5.     idle()
  6.     go(the frame)
  7.   else
  8.     repeat while soundBusy(2)
  9.       idle()
  10.     end repeat
  11.     go(the frame + 1)
  12.   end if
  13. end
  14.